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MEMORY MANAGEMENT SERVICES TEST #5 


-TITLE MM ast = TEST OF SEXPREG/SCNTREG SYSTEM SERVICES 
IDENT ‘*v0Q4-000' 


MARAAARAAAAAALALAAALLALALALL ALA LASS AER E ERE EERE REAR E SEES ERE RRR E REESE ERR EES 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fe “keche fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH phat AND WITH THE 


Bete 


> 
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COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 

; ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 
; ENVIRONMENT: USER MODE DIAGNOSTIC 
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; AUTHOR: PETER H. LIPMAN , CREATION DATE: 6-JAN-77 

: MODIFIED BY: 
40 ; V02-012 $HZ0004 Stephen Zalewski 20-Aug-1980 
2 3 Incorporated this prosres into MMG test package. 
43: v02-012 T$C0004 Thomas Clark 25-Jul-1980 
44 ; Added further tests to system services tested in this 
é : program. 
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r 
MMGTST.SRCJMMGEXPCNT.MAR; 1 


} 
| 
48 ; .SBTTL DECLARATIONS 
; INCLUDE FILES: | 
SBTTL MACROS 
, : MACROS | 
: : «MACRO LIST 
“LIST MEB 
g ENDM LIST 
60 «MACRO NLIST 
61 “NLIST MEB | 
6¢ OM = NLIST 
64 «MACRO DELTVA STARTVA,ENDVA, STATUS=S*#SS$_NORMAL, = 
$9 sent INADR=W* INRANGE , RE TADR=W*RE TRANGE 
88 IF NB, STARTVA 
68 MOVE STARTVA, W* INRANGE 
0 “IF NB, ENDVA 
4 HOV ENDVA, W* INRANGE +4 
7 MOVZWL STATUS,R3 
74 MOVAL INADR,RO 
75 MOVAL RETADR,R1 
7 BSBW  DELTVASUBR 
7 NLIST 
28 .ENDM = DELTVA 
0 -MACRO CNTREG PAGCNT,REGION=#0,STATUS=S*#SS$_NORMAL ,- 
1 i RETADR=W*RETRANGE 
§ MOVZWL STATUS,R3 
4 MOVL  PAGCNT.R4 
5 MOVAL RETADR.R1 
6 IF IDN, <REGION>, <#0> 
? cLRL R5 
$ MOVL = REGION, RS 
0 .ENDC 
31 BSBW CNTREGSUBR 
é NLIST 
93 .ENDM = CNTREG 
95 .MACRO EXPREG PAGCNT,REGION=#0,STATUS=S*°#SS$_NORMAL , - 
3 RE TADR=W*RE TRANGE 
9 LIST 
38 MOVZWL STATUS,R3 
MOVL  PAGCNT.R4 
MOVAL RETADR.R1 


* DN, <REGION> , <#0> 
an 
MOVL = REGION, RS 
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aspu EXPREGSUBR 
EXPREG 

RANGECHK ONOROFF 
IDN <ONOROFF> 


RANGE CHK 


: EQUATED SYMBOLS: 


<REALGOP., -MASK>, - 
<RNGCHK, ,MASK>= 


> 
PRTSC_NONE=104 
> OWN STORAGE: 


Sz 


<OF F> 
BICL  #CTLSM_RNGCHK,W*CTLFLG 


BISL § #CTLSM_RNGCHK,W*CTLFLG 


| 


6 
MMGEXPCNT = TEST OF SEXPREG/SCNTREG SYSTEM Se RGICE 16-SEP-1984 02:03:01 VAX/VMS Macro v04-00 P 
voe DATA STORAGE AND MESSAGE STRINGS gr Seer RS BERE:ES FANCYSE Besse ees Oe aun. OO? Of, 
1 «SBTTL DATA STORAGE AND MESSAGE STRINGS 
00000 13 ‘te SECT DATAO, PAGE ,WRT ,NOEXE 
00000008 14 ReTRANGE See 2 | 
1 14 -BLKL 2 
144 CTLFLG: .LONG CTLSM_TSTLOOP! CTLSM_PIDMSG 
0014 145 SAVEND: .BLKL 
0001 tt 123 wow rpLKL 1 LAST BYTE ADDRESS IN PO SPACE 
le e g 
Mattie 1 148 PID: -BLKL 1 :PROCESS ID 
149 MAXPASSCNT: 
00000003 15 .LONG 3 ;NUMBER OF PASSES TO RUN 
4 151 PASSCNT CN 
00000028 cs g -BLKL 1 :PASS COUNTER 
: 153 WRKSETLIM: CT 
0000002C¢ : ! : uxetet = 1 RETURNED NEW WORKING SET LIMIT ey 
0000044 7.3 -BLKL 6 ;DEFAULT, MAX, MIN WORKING SET LIMIT CT 
boag90%4 44 133 WRKSE TMAX=WRKSETDEF +8 — ' me oe CT 
0000003C 44 1238 WRK SE TMIN=WRKSETDEF +16 cT 
1044 159 WRKSETMAXADD: CT 
00000048 ee 169 men 1 yWRKSE TMAX-WRKSETDEF et 
D048 183 FAB $FAB  —-« FAC=PUT, FNA=OUTNAMADR, FNS=OUTNAMSIZ ;FAB FOR OUTPUT 
0098 163 RAB: $RAB  FAB=FAB sRECORD ACCESS BLOCK FOR OUTPUT E 
Q0000EO O0DC 164 MSGLEN: .BLKL 1 SRETURN LENGTH FRO 
000000F E*000000A0' DOE 165 MSGBUFD: .LONG MSGBUF $12, MSGBUF SMESSAGE BUFFER DESCRIPTOR 
000000F A'00000004' DOE 189 "LONG MSGBUF-PIDMSG,PIDMSG 
af 4 t *#*ee DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 
A Oro 1p ASGBUFID: *015,°012 
m0 55.9565 365 BEE IE nies, eel] Pe i 
0060198 OFE 175 MSGBUF: .BLKB 160 :MESSAGE BUFFER USED BY FAO FA 
000000 19E 1% MSGBUF $1Z=.-MSGBUF A 
198 178 $ #*#e* DO NOT SEPARATE OR REORDER THE PRECEEDING LINES A 
19§ 180° FA 
0000: ! 1 .PSECT DATA1,PAGE,WRT,NOEXE oa 
1 4 WRTPAGES: FA 
00000800 4 .BLKL 1284 FA 
0000 1 § -PSECT DATA2,PAGE,NOWRT,NOEXE HI 
187 RDPAGES: 10 
00000800 8 -BLKL 12884 10 
IN 
MA 
MS 
mS 
mS 
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i «PSECT CODE ,PAGE ,NOWRT EXE 
OUTNAMADR : 

sASCII /SYSS$OUTPUT/ 
5 OUTNAMSIZ=.-OUTNAMADR 


§ DELTVAERRADR: 
8 eASCII] $!/DELTVA ERROR = PC = !XL,STATUS WAS !XL, SHOULD BE !XL$ 
| 
J 


Coooo 
oa 


owowoo 


199 eASCII $!/ INADR = !XL = !XL, RETADR = !XL = !XL!/$ 


Wwror— 
Woo PMNwo > > YP 


One 


DELTVAERRSIZ=.-DELTVAERRADR 


if CNTREGERRADR: 
sASCII $!/CNTREG ERROR = PC = !XL, STATUS WAS !XL, SHOULD BE !XL$ 


Cu eID DDD 


204 sASCII $!/ PAGCNT = !UL, REGION = P!UB SPACE, $ 


> 
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OOOCCOoCooo 


C9 = 205 eASCII SRETADR = !XL = !XL!/$ 


ON KRN—o—oOrn 
VF UVES UU 

GE NO—CnSOf 

MPH —PMMIMSMNVvPse 

—— =NOUNDowom 

On VFOK MINH 

SOF SNeN—SCOW 

Snr vrorpnrvvyr Sr Sr vwononypryuwrs 


MONS —— FWA 
Statatd 
wm 


SI VPI UPN BNE EN 


oe 


+44 6 CNTREGERRSIZ=.-CNTREGERRADR 
DD 08 EXPREGERRADR: 
52 47 45 35 0 58 45 2F 21 DO 09 eASCII $!/EXPREG ERROR - PC = !XL, STATUS WAS !XL, SHOULD BE !XLS$ 
58 43 50 20 8 2 4F E 
at 4 41 54 f F 
4c sf 36 1 5 1 
4C 1 20 4 $$ Aa 3 
rt 43 47 41 50 F 21 210 eASCII $!/ PAGCNT = !SL, REGION = P!UB SPACE, $ 
47 4 i$ 4! C $f 321 0121 
53 20 4 15 p D 4 
3D $9 52 44 41 54 211 eASCIL SRETADR = !XL = !XL!/$ 
2F 21 4C 58 21 $8 $8 014 
Yee ! EXPREGERRSIZ=.-EXPREGERRADR 
D14F 14 RANGERRADR: 
D14F 15 eASCII $!/RETURN RANGE ERROR - LOCATION = !XL$ 


D174 216 eASCII $!/ INADR = !XL = !XL, RETADR = !XL = !XL!/$ 


; 


if 
set 
oth 


0 


019€ ats RANGERRS1Z=.-RANGERRADR 


AND MESSAG 
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44-4 Fah 4 
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DMDZERRADR: 
»ASCII1 $!/PAGE NOT CREATED DEMAND ZERO!/$ 
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DMDZERRSIZ=.-DMDZERRADR 


IDMSGADR: 
-ASCI1 $!/MEMORY MANAGEMENT SERVICES TEST #5 (EXPCNT), PASS !UL!/$ 


IDMSGSIZ=.-1DMSGADR 


5 
3 RUN1_MSGADR: 
& ASCII] $!/ *eeee TEST WILL NOW BE RUN USING REGULAR VA SPACE «eee 


ASCII $!/ $ 
RUN1_MSGSiZ=.-RUN1_MSGADR 


PIOCTLADR: 


$s $!UL$ 
PID z 


Ci! 
CTLSIZ=.-PIDCTLADR 


6 
roeebee SRY SeakP RMS HEGRE SHAND PEPE GSE TOEE GREED WANARE SRSA nnn "0 
| STRING DESCRIPTORS 
7 ALIGN LONG 
DELTVAERR: 
CNTREGERR: 
EXPREGERA: 


LONG DELTVAERRSIZ,DELTVAERRADR 
CNTREGERRSIZ,CNTREGERRADR 

EXPREGERRSIZ,EXPREGERRADR 

“«LONG — RANGERRSIZ,RANGERRADR 

"LONG DMDZERRSIZ,DMDZERRADR 

.LONG — IDMSGSIZ, IDMSGADR 

~~ «LONG — RUNT_MSGSIZ,RUN1_MSGADR 

" LONG PIDCTLSIZ,PIDCTLADR 


0000000D ' 00000072 
0000014F *0000004F 
0000019€ 00000020 
000001BE *00000039 
000001F 7'00000043 


: 
Dd 

4 
0000000A* 00000061 ? 
00000068 ' 00000072 : 

} 
0000023A' 00000003 4 
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2 59 ~SBTTL INITIALIZATION 
° FARRAR AH AAA EAT AE AERA AAA AAAAAAAAAAAARAAAAAAAAAEAAAAAAAAA KARE Ree eee eee ees 
i: SPROGRAM DESCRIPTION: 
6 THIS PROGRAM TESTS THE FOLLOWING SYSTEM SERVICES: 
4 ; SEXPREG, SCNTREG 
ég : THE PROGRAM DOES SOME SIMPLE EXPAND AND CONTRACT REGIONS TO CHECK 
67 ; THAT THE SERVICES PERFORM CORRECTLY. FOLLOWING THIS THE PROGRAM FORCES 
68 ; POSSIBLE ERROR PATHS FOR THE ABOVE MENTIONED SYSTEM SERVICES. THREE 
$ ; PASSES ARE MADE THROUGH THE TEST LOOP TO ENSURE PATH REPEATABILITY. 
20 ; NLY REGULAR VA SPACE IS USED IN THIS tes PROGRAM. 
tg ; REFER TO MASD$:CMMGTST.COMIJMMGTST.RAP FOR FURTHER INFORMATION 
73; REGARDING JUST HOW COMPLETELY THE ABOVE MENTIONED SYSTEM SERVICES 
4 ; ARE TESTED BY THIS PROGRAM. 
2 : *PRIVILEGES: 
7? ; THIS PROGRAM NEEDS NO SPECIAL PRIVILEGES TO EXECUTE. 
8 i 3 MARARBASAALALASALASLALALALLACLALCLESEEE SEE EEE EE EERE EERE ESE E REE ESSE SERS REESE ESE OS 
: 80 : START HERE 
0000 80 ee START: .WORD 0 sENTRY MASK 
8 8 $OPEN W*FAB [OPEN THE FILE og souTPuT™ 
OE 50 €9 0280 284 BLBC RO, 108 SBRANCH IF 
90 285 SCONNECT WARAB [CONNECT THE RECORD ACCESS BLOCK 
09 50 €8 0298 86 BLBS , 
9 8 10$:  SEXIT_S R sEXIT WITH STATUS IN RO 
00000024"EF 01 DO O2A 8 20$:  MOVL ~ #1,PASSCNT SINITIALIZE THE PASS COUNT 
AE 28 SRESUME_S PID :SET UP PROCESS ID 
50 O000001C'EF 3C O2BD 290 MOVZWL ~PID,RO 
C4 4 SFAO_S PIDCTL.MSGLEN,PIDMSGD,RO yINIT THE PROCESS ID STRING 
0 b¢ $8 ; INFORM OPERATOR THAT TESTS WILL BE RUN USING ONLY NORMAL VA SPACE 
6 D 95 ° $FAO_S RUN1_MSG,MSGLEN,MSGBUFD y INFORM OPR NORMAL VA USED FOR TEST 
0285 30 rs 36 BSBW” TYP 
0010'cr 04 (CA FS 97 eee BICL #CTLSM_PIDMSG,W*CTLFLG ;STOP PROCESS ID FROM PRINTING 
FA 299 " RANGECHK ON 
0010'CF 08 CB O2FA BISL  #CTLSM_RNGCHK,W*CTLFLG 
FF 300 $FAO_S 1DSG MSGLEN,MSGBUFD ,PASSCNT 
0288 30 O31C 01 BSBW” TYPEMSGBUF 
1F 2 EXPREG rl 
53 o1 3¢ 1F MOVZWL S*#SS$_NORMAL ,R3 
51 0008" CE DE § MOVAL W*RETRANGE ,R1 
0198 36 C BSBW EXPREGSUBR 
52 0008' CF F 03 MOVa WORE TRAN GER 
6 00'CF 3 7D 4 4 MOVO Rou ANGE 
014°C D0 9 305 MOVL we UNEND 


mh ad 
zm 
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~SBTTL EXPAND/CONTRACT REGION TEST 

; TEST EXPAND/CONTRACT REGION 

EXPREG #1,#0 
MOVZWL $*#SS$_NORMAL ,R3 

MOVL =o# 

MOVAL W*RETRANGE ,R1 

BSBW | EXPREGSUBR 

BsBu DMDZERTST 

CNTREG #1,8 
MOVZUL $*#SS$_NORMAL .R3 
MOVAL W*RETRANGE,R1 
BSBW © CNTREGSUBR 


EXPREG #1,#1 
MOVZWL $*#SS$_NORMAL,R3 


MOVL 
MOVAL W*RETRANGE,R1 
MOVE #1,R 
BSB EXPREGSUBR 

BSBW DROZERTST 

CNTREG #1,41 


MOV ZUL S*#SS$_NORMAL ,R3 
MOVAL W*RETRANGE,R1 
BSBW  CNTREGSUBR 


EXPAND BY 1 PAGE IN PO SPACE 


CHECK FOR DEMAND 
;CONTRACT 1 PAGE P 


EXPAND 1 PAGE P1 SPACE 


CHECK FOR DEMAND ZEROING 
;CONTRACT 1 PAGE P1 SPACE 
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Y0e e000 FORCE ERRORS FROM EXPREG/CNTREG Set 7 84:93:88 YRMGTST. SREIMMGEXPCNT MAR: 1 . 
18 .SBTTL FORCE ERRORS FROM EXPREG/CNTREG 
| + FORCE ERRORS FROM EXPAND/CONTRACT REGION 
2 EXPREG #140, STATUSSESSS ACCYIO,RETADR=W"4 sEXPAND W/INVALID RETADR 
3 oc 3 MOVZWL #SS$_ACCVIO,R 
4 D OVL RE 
51 0004'CF OD ¢ MOVAL wW*4,R1 
« p } CLRL. aR 
0131 +30 039 BsBu EXPREGSUBR 
96 323 CNTREG #1,#0,STATUS=#SS$_ACCVIO,RETADR=W*4 ;CONTRACT W/INVALID RETADR 
33 oc 3 36 MOVZWL asss ACCVIO,R 
$e fa. 9 MOVL  #1,R% 
51 0004 CF DE 039¢ MOVAL W*4,R1 
5 D4 O3Al CLRL. RS 
0108 30 O3A3 BBW CNTREGSUBR 
Ab 3:24 EXPREG #-1,#0,STATUS=A#SS$_ILLPAGCNT | ;EXPAND W/ILLEGAL PAGE COUNT 
53 OOFC BF 3¢ 346 MOVEWL #SS$_ILLPAGCNT,R 
54 FFFFFFFFE BF 00 MOVL  #- 
51 O008'CF DE 038 MOVAL W*RETRANGE,R1 
55 04 038 CLRL. RS 
0108 30 0389 BSBW _EXPREGSUBR 
3BC 0-325 CNTREG #=-1,#0,STATUS=#SS$_ILLPAGCNT | ;CONTRACT W/ILLEGAL PAGE COUNT 
53 OOFC BF 3C O3BC MOVZWL #SS$_ILLPAGCNT,R 
54 FFFFFFFE 8F 00 O3¢i MOVL | 
51 0008" CF DE 03C8 MOVAL W*‘RETRANGE,R1 
5 D4 O3CD CLRL. RS 
OODF 30 O3CF BSBW CNTREGSUBR 
03D2 326 EXPREG #1a21-1,#0,STATUS=#SS$_VASFULL ;FILL THE PAGE TABLE, PO 
53 0244 8F 3C 03D MOVZWL ‘“#S$$_VASFULL,R3 
54 OOIFFFFF 8F 00 03D MOVL a2t-1, 
51 OQ008'CF ODE 30 MOVAL W*RETRANGE,R1 
55 D4 O3E CLRL 
OODF 30 O35 BSBW EXPREGSUBR 
366 327 RANGECHK OFF 
0010'CF 08 CA O3E BIC #CTLSM_RNGCHK,W*CTLFLG 
3ED =: 328 DELTVA INADR=W*RETRAN sDELETE WHAT WE CREATED 
53 01 oC O3ED MOVZWL S*#SS$_NORMAL,R3 
50 O008°CF ODE 3F0 MOVAL W*RETRANGE, 
51 0008'CF DE O3F MOVAL W*RETRANGE.R1 
004D 3FA BSBW  DELTVASUB 
3ED 329 RANGECHK ON 
0010'CF 08 C8 O3FD Bist #CTLSM_RNGCHK ,W*CTLFLG 
4 330 EXPREG #1a21-1,#1,STATUS=#SS$ VASFULL ;FILL THE PAGE TABLE, P1 
53 02464 BF 3C 04 MOVZWL “#SS$_VASFULL,R3 
54 OO1FFFFF 8F 00 04 MOVL  #la2T-1, 
51 9008" CF DE 04 5 MOVAL W*RETRANGE,R1 
5 (01 p 41 OV #1,R 
OOAE 416 BSBU EXPREGSUBR 
419 331 RANGECHK OFF 
0010'CF 08 CA 0419 #CTLSM_RNGCHK,W°CTLFLG 
41E 332 DELTVA INADR=W*RETRANGE SDELETE WHAT WE CREATED 
3 01 3¢ ale MOVZWL S*#SS$_NORMAL,R3 
50 O008'CF DE 04 MOVAL W*RETRANGE,R 
51 0008'CF oe 426 MOVAL W*RETRANGE.R1 
ic 428 BSBW  DELTVASUBR 
42E 333 RANGECHK ON 
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ZEND OF LOOP 


AOBLEQ W*MAXPASSCNT ,W*PASSCNT,160$ 


3 1508: pov 3 an" RO 
i} 160$: Ht .S RSTART 
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TEM SERVICE 16-SEP-19 AX/VMS Macro V04-00 Page 

ice g- -SEP- =}382 BF 95: 83 MMGTST.SRCIMM MMGEXPCNT.MAR; 1 . 
.SBTTL SUBROUTINES TO CALL THE SERVICES 
“ = INADR 
Ri = RETAOR 
R3 = DESIRED STATUS 
R2 PRESERVED 
SDELTVA_S (RO), (R1) 
MOVAL W*DELTVAERR,R1 ZERROR CONTROL STRING 
BRB CHECK1 
CMPL ~—s RO, RB : STATUS aS DESIRED 
BEQL 10 SBRANCH IF YE 
CHP #SS$_VASFULL,R3 [IF EXPECTING VIRTUAL ADDRESS SPACE FULL 
CAP #SSS_EXQUOTA,RO ; THEN EXCEEDS QUOTA MAY ALSO BE RETURNED 
PUSHL 

VL &(SP),R : ADDRESS OF ERROR 
SFAO_S (R1)  WSCLEN, MSGBUFD,R4,RO,R 
INRANGE, INRANGE +4, PETRANGE™ RETRANGE+4 

POPR #°M<R 
BSBW TYPERS@BUF 
5B 
BRW RANGE CHK :GO CHECK THE RETURN RANGE 


sree SCHTREG gr ETER SERVICE 14-SEP-1986 BF:05°8) YANI SOOO, magn POR th 
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0 
B1 78; 
481 379 : INPUT: 
481 ; 
481 : Rt = RETADR 
481 ; R3 = DESIRED STATUS 
481 ; R&4 = PAGCN 
481 4: RS = REGION 
4B1 Ee 
481 $ > OUTPUT: 
481 ; 
481 ; ; R2 PRESERVED 
481 ENTREGSUB 
Bi 391 SC NTREG 5. RG, (R1) 
51 FD84 CF C 36 MOVAL CNER REGEAR, a1 ZERROR CONTROL STRING 
14 C 9 BRB tuee 
C 94 ; 
4C? 395 ; INPUT 
4C7 36 ; 
4C? 397: R1 = RETADR 
QC? 398 ; R3 = DESIRED STATUS 
4C7? 399: R& = PAGCNT 
4C7 400 ; RS = REGION 
4C? 401 ; 
4C7 40¢ + OUTPUT: 
4C7 403 ; 
C7 404 ; R2 PRESERVED 
04€7 405 
04¢7 406 EXPREGSUBR: 
047 40 SEXPREG_S R4,(R1),,.R5 
51 FD76 CF DE 0406 408 MOVAL “W*EXPREGERR,R1 ZERROR CONTROL STRING 


MAGE XPCNT 
v04 


53 % 
6 
56 9604 AE 


at 


0000°CF sf 
9 


0004" CF 8600" er 


73 OO10"CF 9s 
70 50 


50 gpoo 6 


29 1FF iy 
1 1FF 8F 
0008 CF 8 
000C 'CF 

53 04 AE 


we 
5. 
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m0 =F 
ovwP,r-0oO— 


=> 
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410 CHECK2 

MPL R09 R3 

BEQL §«=:«100$ 

PUSHL R6 

MOVL 4(sP) Rb 

SFAO_S (R1),ASGLEN, MSGBUF 
RE TRANGE , RE TRANGE + 

POPR &#*M<R6> 

BsBM TYPEMSGBUF 


BLBC 

MOVG W*INRANGE,RO 
CMPL = RO, RI 

BGTRU 108 

BLSSU 5 


$ 
BBS #30,R0,10$ 
REQUESTED RANGE IS FORWARDS 


BICW #*X1FF,RO 
BISW #°X1FF RI 
BRB 208 


UPeeee 
a 


+ GOING BACKWARDS IN VIRTUAL ADDRESS SPACE 
10s: ISW  s #*X1F FRO 
BICW #*X1FF-RI 
445 20S: CMPL RO,W*RETRANGE 
44 BNEQ 
44 CMPL R1,W*RETRANGE+4 
448 BEQL 4o$ 
449 30$:  PUSHL 
450 VL (SP) ,R3 
451 SFAG_S <W*RANGERR>,MSGLEN 
43¢ INRANGE , INRANGE +4, 
43 POPR #*M<R3> 
454 BSBW TYPEMSGBUF 
455 40$:  RSB 


AX/VMS Macro v04-00 
MMGTST.SRCJMMGEXPCNT.MAR; 1 (12) 


D.R6,RO.R3,R4,RS 


10$: MOVL a oa 


ASHL #9,R4,R4 
ADDL3 4. W* INRANGE ,W* INRANGE +4 
BRB RANGE CHK 


BBC #CTLSY RNGCHK,W*CTLFLG,40S 
RO, 40$ 


F 
ANGE +4 
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STATUS AS DESIRED? 
;BRANCH IF YES 


;ADDRESS OF ERROR 


;MAKE INPUT RANGE LOOK LIKE CRETVA/D 


zAND CHECK THE RETURN RANGE 


BRANCH IF RANGE CHECK IS DISABLED 
:I1F ERROR IN SERVICE, SKIP THE RANGE 
Ri = ENDVA 


BRA 
;BRANCH IF FORWARDS 
3FOR EQUAL, PO SPACE FORWARDS, P1 BA 


;FROM BYTE 0 OF STARTVA 
; THROUGH LAST BYTE OF ENDVA 


;LAST BYTE OF STARTVA 

: THROUGH FIRST BYTE OF ENDVA 

[1S THIS WHAT WAS RETURNED? 
CH IF NOT, ERROR 

STHIS ONE OK 100? 

'BRANCH IF YES, RANGE OK 

: GISTER 


RE 
USE FOR ERROR PC 
;FORMAT THE ERROR MESSAGE 
RESTORE SAVE REGISTER 
;OUTPUT THE ERROR MESSAGE 
zAND RETURN 


fF 7 
mmceangn wiBERL MeeSEEEESCSGHTAEE SYSTEM SENTICE ppaer—toRs GEABH-E) YARCIRE NeeeeUOE=OG, mugs POOP fy 


AA ‘ .SBTTL MISCELLANEOUS SUBROUTINES 
AA 659 : TYPE A MESSAG 
AA 460: mSGBUF $ THE ADDRESS oF THE BEGINNING OF THE STRING 
AA $ ; MSGLEN CONTAINS THE SIZE (IN BYTES) OF THE STRING 
AA 463 TYPEMSGBUF : 
9 gon¢ CE D0 OSAA 4 MOVL § W*°MSGLEN,R :SIZE TO RO 
FE cf DF AF 465 MOVAL WeASGBUF R SADDRESS TO R1 
08 O010'CF =62~=«CO# B44 6 BBC #CTLSV_PIDMSG,W*CTLFLG,5$ ‘BRANCH IF NO PROCESS ID REQUIRED 
FO'CE OF SBA C4 MOVAL W*MSGBOFID, SADDRESS INCLUDING PID MSG 
e* C ie 4 8 - ADDL  $*#<MSGBUF-MSGBUFID>,RO SINCLUDE EXTRA BYTES IN COUNT 
OOCO'CF 51 D 3 4 p : MOVL  R1,W*°RAB+RABSL_RBF :SET BUFFER ADDRESS 
OOBA'CF 50 8B 3¢ 47 MOVW RO W*RAB+RABSW-RSZ SAND SIZE 
cc ae $PUT wW*RA SOUTPUT THE MESSAGE 
01 50 2 307 473 BLBC RO, 208 
308 42s 20$:  $EXIT_S RO sEXIT WITH ERROR STATUS 
5E4 t38 : TEST FOR DEMAND ZEROING 
364 478 ; RETRANGE CONTAINS RANGE TO BE TESTED 
5E4 480 OMDZERTST: 
50  00000003'EF 00 5E4 481 MOVL = RETRANGE,RO :GET ADDR TO START ON 
0 D3 368 4 . S$: TSTt (RO) [CHECK A LONGWORD 
FFF2 50 04  0000000C'EF fl O5EF 4 , ACBL RETRANGE+4 ,#4,R0,5$ ;AND LOOP 
Sera 4 : 10$ SFAO_S <W*DMDZERR>,MSGLEN,MSGBUF D sFORMAT THE ERROR MESSAGE 
FF96 «6330s «0611s BSBW” TYPEMSGBUF SOUTPUT IT 
05 0614 488 RSB SAND RETURN 
0615 490 .END = START 
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MAGE KPCNT 
Symbol table 


HECK 
CNTREGERR 
CNTREGERRADR 
CNTREGERRSIZ 
— 


DELTVAERR 
DEL TVAERRADR 
DELTVAERRSIZ 
DEL TVASUBR 


XPREGERRADR 
EXPREGERRSIZ 
EXPREGSUBR 


IDMSGADR 
IDMSGS1Z 
INRANGE 
MAXPASSCNT 
MSGBUF 
MSGBUF D 
MSGBUF ID 


i 
: 
a5 
i 
op : 
09 
| 
oe 
an 
8000380 f 
at 
a 
a 
: 
wt 
i 
ef 


oo 
ror 


oo OOOO 
hmouwm WM 


oo ooo COO COCO 
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MSGBUF SIZ 
MSGL 
PREVPROT 
PRTSC_NONE 
RAB 
RANGERR 
RANGERRADR 


RANGERRSIZ 
ROPAGES 

RE TRANGE 
RSTART 
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WRTPAGES 


~ TEST OF SEXPREG/SCNTREG SYSTEM Seevice 19360-1388 aa 


4 YAn/yes Macro V04-00 
MMGTST.SRCJMMGEXPCNT MAR; 1 
AO 
Sr 8 
it ; 
R 
AR 5 
if 
48 R 
: ‘Pete 
ath 
00 3 44 
000000 
0000 18 
ath 
09009 6 
0000 R 05 
0900035 R 05 
Bays 
99000000 R 04 
00000008 R 02 
ae 
00000 ‘9 R 05 
SH a 
Su 
000001 ¢ 
Goagoart 
si 


o 
o 
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o 
» 


wankanae GX 
keaneeee GY 
aeneeeee 6X 
eeeeeene § GX 
geeeeeee GX 
eeeeeeee x 
aeakenee GX 
weeeeeee GX 
eeeeeene 
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! Psect synopsis ! 


ta oewe rer eeeen oon 


PSECT name Allocation PSECT No. Attributes 
~ ° 8 ( on ( -) NOPIC USR CON ABS ' LCL NOS 
$aBS ( ) ( 1.) NOPIC USR CON ABS LCL NOSH 
DATAO 1 ( 6164,) ¢ ( -) NOPIC USR CON REL LCL NOS 
DATA1 ( 2048.) ( -) NOPIC USR CON REL LCL NOS 
DATA2 ( 2048.) 04 ( 2°} NOPIC USR CON REL LCL NOSH 
CODE ( 1557.) 5 ( -) NOPIC USR CON REL LCL NOS 
$e cs eee swear eens een ean ewan $ 
! ; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 17 8: = .07 0:00:01.69 
pounege processing 4 : ¢ ° 5 if 3 8:18 
Synbo| table sort :00:01.2 :00:03.7 
Pas 10 8 702.4 0: 198 «$8 
Symbol table output 1 :00:00.1 0:00:00. 9 
Psect synopsis output 3 8 0:00:00.0 
Cross-reference output ‘ 0:00:00.00 
Assembler run totals 536 0 41 0:00:55.11 


The working set Limit was 1200 pages. 

61911 bytes (121 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table snece o eeenee to hold 866 non-local ae 16 local symbols. 
490 source lines were read in Pass 1, producing object records in Pass 

41 pages of virtual memory were used to define 34 macros. 
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! Macro Library statistics H 


ere ese teen mee eae nonsense 


Macro roe name Macros defined 


:CSYS.OBJJLIB.MLB; 1 

SSL STARLET. MLB;2 § 
+B585b0U A: oar es) 
1120 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:MMGEXPCNT/OBJ=OBJ$:MMGEXPCNT MSRC$:MMGEXPCNT/UPDATE=(ENHS:MMGEXPCNT) ¢EXECMLS/LIB 


o v04-00 Page 8 
MMGEXPCNT.MAR; 1 (13) 


NOWRT NOVEC BYTE 


NOWRT NOVEC PAGE 
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